home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / visual2a / menu.frm < prev    next >
Text File  |  1999-09-25  |  12KB  |  397 lines
  1. VERSION 5.00
  2. Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
  3. Begin VB.Form Menu 
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Options"
  6.    ClientHeight    =   3390
  7.    ClientLeft      =   0
  8.    ClientTop       =   -60
  9.    ClientWidth     =   4680
  10.    Icon            =   "Menu.frx":0000
  11.    LinkTopic       =   "Form2"
  12.    LockControls    =   -1  'True
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    Moveable        =   0   'False
  16.    ScaleHeight     =   3390
  17.    ScaleWidth      =   4680
  18.    ShowInTaskbar   =   0   'False
  19.    Begin VB.CheckBox Check3 
  20.       Caption         =   "Screen Saver &Mode"
  21.       Height          =   255
  22.       Left            =   240
  23.       TabIndex        =   12
  24.       Top             =   3840
  25.       Width           =   2535
  26.    End
  27.    Begin VB.CommandButton Command4 
  28.       Caption         =   "&Cancel"
  29.       Height          =   495
  30.       Left            =   2400
  31.       TabIndex        =   14
  32.       Top             =   4200
  33.       Width           =   2055
  34.    End
  35.    Begin VB.CommandButton Command3 
  36.       Caption         =   "Save &Options"
  37.       Height          =   495
  38.       Left            =   240
  39.       TabIndex        =   13
  40.       Top             =   4200
  41.       Width           =   2055
  42.    End
  43.    Begin VB.CommandButton Command2 
  44.       Caption         =   "Change &PassWord"
  45.       Height          =   315
  46.       Left            =   2040
  47.       TabIndex        =   11
  48.       Top             =   3480
  49.       Width           =   2415
  50.    End
  51.    Begin VB.CheckBox Check2 
  52.       Caption         =   "&Require PassWord"
  53.       Height          =   255
  54.       Left            =   240
  55.       TabIndex        =   10
  56.       Top             =   3480
  57.       Width           =   1815
  58.    End
  59.    Begin VB.CheckBox Check1 
  60.       Caption         =   "&Delete Trails"
  61.       Height          =   255
  62.       Left            =   240
  63.       TabIndex        =   2
  64.       Top             =   960
  65.       Width           =   1455
  66.    End
  67.    Begin VB.CommandButton Command1 
  68.       Caption         =   "C&lear Screen"
  69.       Height          =   315
  70.       Left            =   3000
  71.       TabIndex        =   9
  72.       Top             =   3000
  73.       Width           =   1455
  74.    End
  75.    Begin VB.ComboBox Combo1 
  76.       Height          =   315
  77.       ItemData        =   "Menu.frx":0442
  78.       Left            =   1440
  79.       List            =   "Menu.frx":0455
  80.       Style           =   2  'Dropdown List
  81.       TabIndex        =   8
  82.       Top             =   3000
  83.       Width           =   1455
  84.    End
  85.    Begin ComctlLib.Slider Slider1 
  86.       Height          =   495
  87.       Left            =   120
  88.       TabIndex        =   1
  89.       Top             =   360
  90.       Width           =   4335
  91.       _ExtentX        =   7646
  92.       _ExtentY        =   873
  93.       _Version        =   327682
  94.       LargeChange     =   1
  95.       Min             =   1
  96.       SelStart        =   1
  97.       Value           =   1
  98.    End
  99.    Begin ComctlLib.Slider Slider2 
  100.       Height          =   495
  101.       Left            =   120
  102.       TabIndex        =   4
  103.       Top             =   1560
  104.       Width           =   4335
  105.       _ExtentX        =   7646
  106.       _ExtentY        =   873
  107.       _Version        =   327682
  108.       LargeChange     =   1
  109.       Max             =   50
  110.    End
  111.    Begin ComctlLib.Slider Slider3 
  112.       Height          =   495
  113.       Left            =   120
  114.       TabIndex        =   6
  115.       Top             =   2400
  116.       Width           =   4335
  117.       _ExtentX        =   7646
  118.       _ExtentY        =   873
  119.       _Version        =   327682
  120.       LargeChange     =   1
  121.       Min             =   2
  122.       Max             =   4
  123.       SelStart        =   2
  124.       Value           =   2
  125.    End
  126.    Begin VB.Label Label4 
  127.       Caption         =   "&Number of Sides:"
  128.       Height          =   255
  129.       Left            =   240
  130.       TabIndex        =   5
  131.       Top             =   2160
  132.       Width           =   2295
  133.    End
  134.    Begin VB.Label Label3 
  135.       Caption         =   "&Trail Size"
  136.       Height          =   255
  137.       Left            =   240
  138.       TabIndex        =   3
  139.       Top             =   1320
  140.       Width           =   2295
  141.    End
  142.    Begin VB.Label Label2 
  143.       Caption         =   "Line &Style:"
  144.       Height          =   255
  145.       Left            =   240
  146.       TabIndex        =   7
  147.       Top             =   3045
  148.       Width           =   1215
  149.    End
  150.    Begin VB.Label Label1 
  151.       Caption         =   "Line &Width:"
  152.       Height          =   255
  153.       Left            =   240
  154.       TabIndex        =   0
  155.       Top             =   120
  156.       Width           =   2295
  157.    End
  158.    Begin VB.Menu mnuFile 
  159.       Caption         =   "File"
  160.       Visible         =   0   'False
  161.       Begin VB.Menu mnuOptions 
  162.          Caption         =   "&Options"
  163.       End
  164.       Begin VB.Menu SP1 
  165.          Caption         =   "-"
  166.       End
  167.       Begin VB.Menu mnuAbout 
  168.          Caption         =   "&About"
  169.       End
  170.       Begin VB.Menu SP2 
  171.          Caption         =   "-"
  172.       End
  173.       Begin VB.Menu mnuExit 
  174.          Caption         =   "&Exit"
  175.       End
  176.    End
  177. End
  178. Attribute VB_Name = "Menu"
  179. Attribute VB_GlobalNameSpace = False
  180. Attribute VB_Creatable = False
  181. Attribute VB_PredeclaredId = True
  182. Attribute VB_Exposed = False
  183. Option Compare Text
  184.  
  185. Private Sub mnuAbout_Click()
  186. 'Generate a standard About Message Box
  187.     MsgBox "Programmed by Pedro Lamas" & vbCrLf & "Copyright ⌐1997-1999 Underground Software", vbApplicationModal + vbInformation, "Credits!"
  188. 'Enable the Drawing Timer
  189.     BlackBoard.Timer1.Enabled = True
  190. End Sub
  191.  
  192. Private Sub Check1_Click()
  193. 'If the "Delete Trails" option is checked
  194.     If Check1.Value = 1 Then
  195. 'Enable the "Trails Size" Slider and the corresponding
  196. 'Label
  197.         Slider2.Enabled = True
  198.         Label3.Enabled = True
  199. 'Update the "Delete Lines" variable
  200.         DelLines = True
  201.     Else
  202. 'Disable the "Trails Size" Slider and the corresponding
  203. 'Label
  204.         Slider2.Enabled = False
  205.         Label3.Enabled = False
  206. 'Update the "Delete Lines" variable
  207.         DelLines = False
  208.     End If
  209. 'Redraw the Mistify
  210.     BlackBoard.Calc (2)
  211. End Sub
  212.  
  213. Private Sub Check2_Click()
  214. 'Update the "Require Password" variable
  215.     P = -Check2.Value
  216. End Sub
  217.  
  218. Private Sub Check3_Click()
  219. 'Update the "Screen Saver Mode Variable" variable
  220.     SS = -Check3.Value
  221. End Sub
  222.  
  223. Private Sub Combo1_Click()
  224. 'Update the "Line Style" variable
  225.     DrawStyle = Combo1.ListIndex
  226. 'Clear the screen
  227.     BlackBoard.Cls
  228. End Sub
  229.  
  230. Private Sub Command1_Click()
  231. 'Clear the screen
  232.     BlackBoard.Cls
  233. End Sub
  234.  
  235. Private Sub Command2_Click()
  236. 'Local variable declaration
  237.     Dim S As String, SC As String
  238. 'If there is a already a password
  239.     If PSWD <> "" Then
  240. 'Ask for the current password
  241.         S = InputBox("Please enter the CURRENT PassWord:", "Change PassWord", "")
  242. 'Check if Cancel was pressed. If so, exit the Sub
  243.         If S = "" Then Exit Sub
  244. 'Check if the password is correct
  245.         If S <> PSWD Then
  246. 'Generate a Message Box, indicating an incorrect password
  247. 'and exit this Sub
  248.             MsgBox "Incorrect Password!", vbApplicationModal + vbCritical, "Change PassWord"
  249.             Exit Sub
  250.         End If
  251.     End If
  252. aqui:
  253. 'Ask for the new password
  254.     S = InputBox("Please enter the NEW PassWord:", "Change PassWord", "")
  255. 'Check if Cancel was pressed. If so, exit the Sub
  256.     If S = "" Then Exit Sub
  257. 'Ask for password confirmation
  258.     SC = InputBox("Please re-enter the NEW PassWord:", "Change PassWord", "")
  259. 'Check if Cancel was pressed. If so, exit the Sub
  260.     If SC = "" Then Exit Sub
  261. 'Confirm the entered passwords
  262.     If S <> SC Then
  263. 'If the passwords are different, generate an Error
  264. 'Message Box and go back to ask for the new password
  265.         MsgBox "PassWord not Checked!", vbApplicationModal + vbCritical, "Change PassWord"
  266.         GoTo aqui
  267.     End If
  268. 'Update the "Password" variable
  269.     PSWD = S
  270. End Sub
  271.  
  272. Private Sub Command3_Click()
  273. 'OK was pressed. Save all options to the registry
  274.     SaveSetting "G